home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagefxv2.1a.lha / ImageFX / Rexx / CineMorph / NextActive.cmorph next >
Text File  |  1996-03-02  |  376b  |  29 lines
  1. /*
  2.  * Arexx program for CineMorph 2.0
  3.  *
  4.  * Activate next point in the current grid.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. GetStatus GridSize
  12. PARSE VAR result gridw gridh
  13.  
  14. GetStatus ActivePoint
  15. PARSE VAR result ax ay
  16.  
  17. ax = ax + 1
  18. IF ax >= gridw THEN DO
  19.    ax = 0
  20.    ay = ay + 1
  21.    IF ay >= gridh THEN DO
  22.       ay = 0
  23.       END
  24.    END
  25.  
  26. ActivePoint ax ay
  27.  
  28. EXIT
  29.